home *** CD-ROM | disk | FTP | other *** search
/ Univers Interactif 3 / INTERACTIF.BIN / mac / Planete.net / Internet Confirmés_Vrac / Bookmark Sorter©.sit / Bookmark Sorter© / background_2742.xml < prev    next >
Extensible Markup Language  |  1995-03-15  |  6KB  |  140 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2742</id>
  5.     <filler1>0</filler1>
  6.     <cantDelete> <false /> </cantDelete>
  7.     <showPict> <true /> </showPict>
  8.     <dontSearch> <false /> </dontSearch>
  9.     <link rel="stylesheet" type="text/css" href="stylesheet_3269.css" />
  10.     <part>
  11.         <id>3</id>
  12.         <type>field</type>
  13.         <visible> <false /> </visible>
  14.         <dontWrap> <false /> </dontWrap>
  15.         <dontSearch> <false /> </dontSearch>
  16.         <sharedText> <false /> </sharedText>
  17.         <fixedLineHeight> <false /> </fixedLineHeight>
  18.         <autoTab> <false /> </autoTab>
  19.         <lockText> <false /> </lockText>
  20.         <rect>
  21.             <left>28</left>
  22.             <top>13</top>
  23.             <right>228</right>
  24.             <bottom>98</bottom>
  25.         </rect>
  26.         <style>transparent</style>
  27.         <autoSelect> <false /> </autoSelect>
  28.         <showLines> <false /> </showLines>
  29.         <wideMargins> <false /> </wideMargins>
  30.         <multipleLines> <false /> </multipleLines>
  31.         <reservedFamily> 0 </reservedFamily>
  32.         <titleWidth>0</titleWidth>
  33.         <icon>0</icon>
  34.         <textAlign>left</textAlign>
  35.         <font>Geneva</font>
  36.         <textSize>12</textSize>
  37.         <textStyle>plain</textStyle>
  38.         <textHeight>16</textHeight>
  39.         <name>temp</name>
  40.         <script></script>
  41.     </part>
  42.     <part>
  43.         <id>2</id>
  44.         <type>field</type>
  45.         <visible> <true /> </visible>
  46.         <dontWrap> <false /> </dontWrap>
  47.         <dontSearch> <false /> </dontSearch>
  48.         <sharedText> <false /> </sharedText>
  49.         <fixedLineHeight> <false /> </fixedLineHeight>
  50.         <autoTab> <false /> </autoTab>
  51.         <lockText> <true /> </lockText>
  52.         <rect>
  53.             <left>0</left>
  54.             <top>113</top>
  55.             <right>256</right>
  56.             <bottom>128</bottom>
  57.         </rect>
  58.         <style>transparent</style>
  59.         <autoSelect> <false /> </autoSelect>
  60.         <showLines> <false /> </showLines>
  61.         <wideMargins> <false /> </wideMargins>
  62.         <multipleLines> <false /> </multipleLines>
  63.         <reservedFamily> 0 </reservedFamily>
  64.         <titleWidth>0</titleWidth>
  65.         <icon>0</icon>
  66.         <textAlign>center</textAlign>
  67.         <font>Times</font>
  68.         <textSize>10</textSize>
  69.         <textStyle>plain</textStyle>
  70.         <textHeight>13</textHeight>
  71.         <name>copyright</name>
  72.         <script></script>
  73.     </part>
  74.     <part>
  75.         <id>4</id>
  76.         <type>field</type>
  77.         <visible> <false /> </visible>
  78.         <dontWrap> <false /> </dontWrap>
  79.         <dontSearch> <false /> </dontSearch>
  80.         <sharedText> <false /> </sharedText>
  81.         <fixedLineHeight> <false /> </fixedLineHeight>
  82.         <autoTab> <false /> </autoTab>
  83.         <lockText> <false /> </lockText>
  84.         <rect>
  85.             <left>28</left>
  86.             <top>24</top>
  87.             <right>228</right>
  88.             <bottom>109</bottom>
  89.         </rect>
  90.         <style>scrolling</style>
  91.         <autoSelect> <false /> </autoSelect>
  92.         <showLines> <false /> </showLines>
  93.         <wideMargins> <false /> </wideMargins>
  94.         <multipleLines> <false /> </multipleLines>
  95.         <reservedFamily> 0 </reservedFamily>
  96.         <titleWidth>0</titleWidth>
  97.         <icon>0</icon>
  98.         <textAlign>left</textAlign>
  99.         <font>Geneva</font>
  100.         <textSize>12</textSize>
  101.         <textStyle>plain</textStyle>
  102.         <textHeight>16</textHeight>
  103.         <name>temp2</name>
  104.         <script></script>
  105.     </part>
  106.     <part>
  107.         <id>1</id>
  108.         <type>button</type>
  109.         <visible> <true /> </visible>
  110.         <reserved5> 0 </reserved5>
  111.         <reserved4> 0 </reserved4>
  112.         <reserved3> 0 </reserved3>
  113.         <reserved2> 0 </reserved2>
  114.         <reserved1> 0 </reserved1>
  115.         <enabled> <true /> </enabled>
  116.         <rect>
  117.             <left>78</left>
  118.             <top>33</top>
  119.             <right>178</right>
  120.             <bottom>55</bottom>
  121.         </rect>
  122.         <style>roundrect</style>
  123.         <showName> <true /> </showName>
  124.         <highlight> <false /> </highlight>
  125.         <autoHighlight> <true /> </autoHighlight>
  126.         <sharedHighlight> <true /> </sharedHighlight>
  127.         <family>0</family>
  128.         <titleWidth>0</titleWidth>
  129.         <icon>0</icon>
  130.         <textAlign>center</textAlign>
  131.         <font>Chicago</font>
  132.         <textSize>12</textSize>
  133.         <textStyle>plain</textStyle>
  134.         <name>Sort It!</name>
  135.         <script>on mouseUpdo srtListend mouseUpon srtListput empty into bg field "temp"put empty into bg field "temp2"answer file "Choose a Bookmark file to sort." of type "TEXT"put the result into resultCode -- if you cancelif resultCode is empty -- everything's finethen put it into bookmark -- then put the path into bookmark variableelse exit srtListask file "Give the sorted file a name." with "Sorted (" & the date & ")"put the result into resultCode -- if you cancelif resultCode is empty -- everything's finethen put it into sorted -- then put the path into sorted variableelse exit srtListopen file bookmarkread from file bookmark until endput it into bg field "temp"do theWorkopen file sortedwrite bg field "temp" to file sortedclose file bookmarkclose file sortedbeep 3end srtListon theWorkput 1 into lCountrepeatset cursor to busyfind string "<A HREF" in bg field "temp"if the result is not empty then exit repeatput the foundChunk into tempFound1find string "</A>" in bg field "temp"if the result is not empty then exit repeatput the foundChunk into tempFound2put word 2 of tempFound1 into charNumput word 4 of tempFound2 into charNum2put char charNum to charNum2 of bg field "temp" into line lCount of bg field "temp2"delete char charNum to charNum2 of bg field "temp"add 1 to lCountend repeatput 1 into lCountput empty into bg field "temp"repeatset cursor to busyfind string "ADD_DATE=" in bg field "temp2"if the result is not empty then exit repeatput the foundChunk into tempFound1put the foundLine into tempLinefind string quote & ">" in bg field "temp2"if the result is not empty then exit repeatput the foundChunk into tempFound2put word 2 of tempFound1 into charNumput word 4 of tempFound2 into charNum2subtract 1 from charNum2delete char charNum to charNum2 of bg field "temp2"put word 2 of tempLine into LineNumput line lineNum of bg field "temp2" into line lCount of bg field "temp"add 1 to lCountend repeatsort lines of bg field "temp" by word 3 of eachend theWork</script>
  136.     </part>
  137.     <name></name>
  138.     <script></script>
  139. </background>
  140.